
use "Data/Census.dta", clear

replace ltd_iss_all_other = ltd_iss_all_other / 1000

histogram ltd_iss_all_other if ltd_iss_all_other > 1 & ltd_iss_all_other < 20 & (year == 1987 | year == 1992 | year == 1997 | year ==  2002 | year == 2007 | year == 2012), by(year, graphregion(color(white)) note("")) xtitle("Long-Term Debt Issued (Millions)") ytitle("Density") color(gs13) lcolor(black) lwidth(vthin)

graph save "Figure A1", replace